Task 4 - Halloween Candy Data

The data is in clean formt now we can use it to ananlyse


library(tidyverse)
library(dplyr)
library(stringr)
library(janitor)
library(here)
# Load data from first csv file 

halloween_candies <- 
  read_csv(here("clean_data/halloween_candies.csv"))

1.4.2 Analysis questions

Q1

# What is the total number of candy ratings given across the three years

halloween_candies %>%
  group_by(ratings)%>%
  drop_na(ratings)%>%
  summarise(candy_ratings = n()) %>%
  summarise(total_ratings = sum(candy_ratings))
NA
NA

Q2

# What was the average age of people who are going out trick or treating and the average age of people 3. not going trick or treating?

halloween_candies %>%
   group_by(going_out) %>%
   summarise(avg_age = mean(age, na.rm = TRUE))
NA
NA
NA

Q3

# For each of joy, despair and meh, which candy bar revived the most of these ratings?

  
halloween_candies %>%
  drop_na(ratings) %>%
  group_by(candies, ratings) %>%
  summarise(candy_ratings = n()) %>%
  filter(candy_ratings == max(candy_ratings))
NA
NA
NA

Q4

# How many people rated Starburst as despair

halloween_candies %>%
  filter(candies == 'starburst') %>%
  group_by(candies, ratings) %>%
  drop_na(ratings) %>%
  summarise(starburst_ratings = n()) %>%
  filter(ratings == 'despair')
NA
NA
NA

Q5

# What was the most popular candy bar by this rating system for each gender in the dataset?

halloween_candies %>%
  filter(gender == c('male', 'female')) %>%
  group_by(candies, gender) %>%
  drop_na(ratings) %>%
  summarise(popular_ratings = sum())
NA
LS0tCnRpdGxlOiAiSGFsbG93ZWVuIGNhbmR5IgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojIFRhc2sgNCAtIEhhbGxvd2VlbiBDYW5keSBEYXRhCgojIFRoZSBkYXRhIGlzIGluIGNsZWFuIGZvcm10IG5vdyB3ZSBjYW4gdXNlIGl0IHRvIGFuYW5seXNlIAoKCmBgYHtyfQoKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoc3RyaW5ncikKbGlicmFyeShqYW5pdG9yKQpsaWJyYXJ5KGhlcmUpCgpgYGAKCgoKYGBge3J9CiMgTG9hZCBkYXRhIGZyb20gZmlyc3QgY3N2IGZpbGUgCgpoYWxsb3dlZW5fY2FuZGllcyA8LSAKICByZWFkX2NzdihoZXJlKCJjbGVhbl9kYXRhL2hhbGxvd2Vlbl9jYW5kaWVzLmNzdiIpKQoKCmBgYAoKCjEuNC4yIEFuYWx5c2lzIHF1ZXN0aW9ucwoKUTEKCmBgYHtyfQojIFdoYXQgaXMgdGhlIHRvdGFsIG51bWJlciBvZiBjYW5keSByYXRpbmdzIGdpdmVuIGFjcm9zcyB0aGUgdGhyZWUgeWVhcnMKCmhhbGxvd2Vlbl9jYW5kaWVzICU+JQogIGdyb3VwX2J5KHJhdGluZ3MpJT4lCiAgZHJvcF9uYShyYXRpbmdzKSU+JQogIHN1bW1hcmlzZShjYW5keV9yYXRpbmdzID0gbigpKSAlPiUKICBzdW1tYXJpc2UodG90YWxfcmF0aW5ncyA9IHN1bShjYW5keV9yYXRpbmdzKSkKICAKICAKYGBgCgoKUTIKCmBgYHtyfQojIFdoYXQgd2FzIHRoZSBhdmVyYWdlIGFnZSBvZiBwZW9wbGUgd2hvIGFyZSBnb2luZyBvdXQgdHJpY2sgb3IgdHJlYXRpbmcgYW5kIHRoZSBhdmVyYWdlIGFnZSBvZiBwZW9wbGUgMy4gbm90IGdvaW5nIHRyaWNrIG9yIHRyZWF0aW5nPwoKaGFsbG93ZWVuX2NhbmRpZXMgJT4lCiAgIGdyb3VwX2J5KGdvaW5nX291dCkgJT4lCiAgIHN1bW1hcmlzZShhdmdfYWdlID0gbWVhbihhZ2UsIG5hLnJtID0gVFJVRSkpCgoKCmBgYAoKUTMKCgoKYGBge3J9CiMgRm9yIGVhY2ggb2Ygam95LCBkZXNwYWlyIGFuZCBtZWgsIHdoaWNoIGNhbmR5IGJhciByZXZpdmVkIHRoZSBtb3N0IG9mIHRoZXNlIHJhdGluZ3M/CgogIApoYWxsb3dlZW5fY2FuZGllcyAlPiUKICBkcm9wX25hKHJhdGluZ3MpICU+JQogIGdyb3VwX2J5KGNhbmRpZXMsIHJhdGluZ3MpICU+JQogIHN1bW1hcmlzZShjYW5keV9yYXRpbmdzID0gbigpKSAlPiUKICBmaWx0ZXIoY2FuZHlfcmF0aW5ncyA9PSBtYXgoY2FuZHlfcmF0aW5ncykpCiAgCiAgCgpgYGAKCgpRNAoKYGBge3J9CiMgSG93IG1hbnkgcGVvcGxlIHJhdGVkIFN0YXJidXJzdCBhcyBkZXNwYWlyCgpoYWxsb3dlZW5fY2FuZGllcyAlPiUKICBmaWx0ZXIoY2FuZGllcyA9PSAnc3RhcmJ1cnN0JykgJT4lCiAgZ3JvdXBfYnkoY2FuZGllcywgcmF0aW5ncykgJT4lCiAgZHJvcF9uYShyYXRpbmdzKSAlPiUKICBzdW1tYXJpc2Uoc3RhcmJ1cnN0X3JhdGluZ3MgPSBuKCkpICU+JQogIGZpbHRlcihyYXRpbmdzID09ICdkZXNwYWlyJykKICAKICAKCmBgYAoKUTUKCmBgYHtyfQojIFdoYXQgd2FzIHRoZSBtb3N0IHBvcHVsYXIgY2FuZHkgYmFyIGJ5IHRoaXMgcmF0aW5nIHN5c3RlbSBmb3IgZWFjaCBnZW5kZXIgaW4gdGhlIGRhdGFzZXQ/CgpoYWxsb3dlZW5fY2FuZGllcyAlPiUKICBmaWx0ZXIoZ2VuZGVyID09IGMoJ21hbGUnLCAnZmVtYWxlJykpICU+JQogIGdyb3VwX2J5KGNhbmRpZXMsIGdlbmRlcikgJT4lCiAgZHJvcF9uYShyYXRpbmdzKSAlPiUKICBzdW1tYXJpc2UocG9wdWxhcl9yYXRpbmdzID0gc3VtKCkpCgpgYGAKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK